home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / bbs / cnet5demo.lha / cnet / ircrexx / thwap.rexx < prev    next >
OS/2 REXX Batch file  |  1998-02-09  |  381b  |  19 lines
  1. /* ORC - creates rainbow colored message with standard esc codes       */
  2. options results
  3. parse arg orcport nick mynick a1
  4. orcport = trim(orcport)
  5. mynick = trim(mynick)
  6. nick = trim(nick)
  7. a1 = trim(a1)
  8.  
  9. wb = '02'x
  10. wv = '16'x
  11. wu = '1f'x
  12.  
  13. outstr = '[' wb 'THWAP!' wb ']'
  14.  
  15. if show('P', orcport) then do
  16.   address value orcport
  17.     cnetirccmd '/NOTICE 'mynick' Hey' 'nick': 'outstr
  18. end
  19.